/ Developer CD Series 1996 June: Reference Library / Dev.CD Jun 96 RL / Dev.CD Jun 96 RL.toast / Technical Documentation / develop / develop Issue 11 / develop Issue 11 code / The NetWork Project.sea / The NetWork Project / Examples (Sources) / ScreenSaver.p

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0d 53 63 72 65 65 6e | 53 61 76 65 72 2e 70 00 |..Screen|Saver.p.|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 01 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 14 1d 00 | 00 01 ef a6 8a 2c 53 a6 |........|.....,S.|
|00000060| 8a 2c 53 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.,S.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 0c 4a 00 00 |........|.....J..|
|00000080| 7b 20 a9 20 43 6f 70 79 | 72 69 67 68 74 20 31 39 |{ . Copy|right 19|
|00000090| 39 30 2c 31 39 39 31 20 | 54 68 65 20 4e 65 74 57 |90,1991 |The NetW|
|000000a0| 6f 72 6b 20 50 72 6f 6a | 65 63 74 2c 20 53 74 61 |ork Proj|ect, Sta|
|000000b0| 74 4c 61 62 20 48 65 69 | 64 65 6c 62 65 72 67 2e |tLab Hei|delberg.|
|000000c0| 20 0d 20 20 a9 20 43 6f | 70 79 72 69 67 68 74 20 | .  . Co|pyright |
|000000d0| 31 39 39 30 2c 31 39 39 | 31 20 4a 6f 61 63 68 69 |1990,199|1 Joachi|
|000000e0| 6d 20 4c 69 6e 64 65 6e | 62 65 72 67 2c 20 4b 61 |m Linden|berg, Ka|
|000000f0| 72 6c 73 72 75 68 65 2e | 20 41 6c 6c 20 72 69 67 |rlsruhe.| All rig|
|00000100| 68 74 73 20 72 65 73 65 | 72 76 65 64 2e 20 7d 0d |hts rese|rved. }.|
|00000110| 0d 70 72 6f 67 72 61 6d | 20 53 63 72 65 65 6e 53 |.program| ScreenS|
|00000120| 61 76 65 72 3b 0d 0d 75 | 73 65 73 20 09 4d 65 6d |aver;..u|ses .Mem|
|00000130| 54 79 70 65 73 2c 20 51 | 75 69 63 6b 44 72 61 77 |Types, Q|uickDraw|
|00000140| 2c 20 4f 53 49 6e 74 66 | 2c 20 54 6f 6f 6c 49 6e |, OSIntf|, ToolIn|
|00000150| 74 66 2c 20 53 79 73 45 | 71 75 2c 20 54 72 61 70 |tf, SysE|qu, Trap|
|00000160| 73 3b 0d 0d 09 50 52 4f | 43 45 44 55 52 45 20 49 |s;...PRO|CEDURE I|
|00000170| 6e 69 74 54 6f 6f 6c 42 | 6f 78 3b 0d 09 09 56 41 |nitToolB|ox;...VA|
|00000180| 52 0d 09 09 09 69 20 3a | 20 69 6e 74 65 67 65 72 |R....i :| integer|
|00000190| 3b 0d 09 09 09 70 20 3a | 20 47 72 61 66 50 74 72 |;....p :| GrafPtr|
|000001a0| 3b 0d 09 09 09 6d 20 3a | 20 4d 65 6e 75 48 61 6e |;....m :| MenuHan|
|000001b0| 64 6c 65 3b 0d 09 09 09 | 0d 09 42 45 47 49 4e 0d |dle;....|..BEGIN.|
|000001c0| 09 09 4d 61 78 41 70 70 | 6c 5a 6f 6e 65 3b 0d 09 |..MaxApp|lZone;..|
|000001d0| 09 46 4f 52 20 69 20 3a | 3d 20 31 20 54 4f 20 31 |.FOR i :|= 1 TO 1|
|000001e0| 30 20 44 4f 0d 09 09 09 | 4d 6f 72 65 4d 61 73 74 |0 DO....|MoreMast|
|000001f0| 65 72 73 3b 0d 09 09 49 | 6e 69 74 47 72 61 66 28 |ers;...I|nitGraf(|
|00000200| 40 74 68 65 50 6f 72 74 | 29 3b 20 09 09 09 20 20 |@thePort|); ...  |
|00000210| 20 7b 69 6e 69 74 69 61 | 6c 69 7a 65 20 51 75 69 | {initia|lize Qui|
|00000220| 63 6b 44 72 61 77 7d 0d | 09 09 49 6e 69 74 46 6f |ckDraw}.|..InitFo|
|00000230| 6e 74 73 3b 09 09 09 09 | 09 09 20 20 20 7b 69 6e |nts;....|..   {in|
|00000240| 69 74 69 61 6c 69 7a 65 | 20 46 6f 6e 74 20 4d 61 |itialize| Font Ma|
|00000250| 6e 61 67 65 72 7d 0d 09 | 09 49 6e 69 74 57 69 6e |nager}..|.InitWin|
|00000260| 64 6f 77 73 3b 09 09 09 | 09 09 20 20 20 7b 69 6e |dows;...|..   {in|
|00000270| 69 74 69 61 6c 69 7a 65 | 20 57 69 6e 64 6f 77 20 |itialize| Window |
|00000280| 4d 61 6e 61 67 65 72 7d | 0d 09 09 49 6e 69 74 4d |Manager}|...InitM|
|00000290| 65 6e 75 73 3b 09 09 09 | 09 09 09 20 20 20 7b 69 |enus;...|...   {i|
|000002a0| 6e 69 74 69 61 6c 69 7a | 65 20 4d 65 6e 75 20 4d |nitializ|e Menu M|
|000002b0| 61 6e 61 67 65 72 7d 0d | 09 09 54 45 49 6e 69 74 |anager}.|..TEInit|
|000002c0| 3b 20 09 09 09 09 09 09 | 20 20 20 7b 69 6e 69 74 |; ......|   {init|
|000002d0| 69 61 6c 69 7a 65 20 54 | 65 78 74 45 64 69 74 7d |ialize T|extEdit}|
|000002e0| 0d 09 09 49 6e 69 74 44 | 69 61 6c 6f 67 73 28 4e |...InitD|ialogs(N|
|000002f0| 49 4c 29 3b 09 09 09 09 | 20 20 20 7b 69 6e 69 74 |IL);....|   {init|
|00000300| 69 61 6c 69 7a 65 20 44 | 69 61 6c 6f 67 20 4d 61 |ialize D|ialog Ma|
|00000310| 6e 61 67 65 72 7d 0d 09 | 09 49 6e 69 74 43 75 72 |nager}..|.InitCur|
|00000320| 73 6f 72 3b 20 09 09 09 | 09 09 20 20 20 7b 63 61 |sor; ...|..   {ca|
|00000330| 6c 6c 20 51 75 69 63 6b | 44 72 61 77 20 74 6f 20 |ll Quick|Draw to |
|00000340| 6d 61 6b 65 20 63 75 72 | 73 6f 72 20 28 70 6f 69 |make cur|sor (poi|
|00000350| 6e 74 65 72 29 20 61 6e | 20 61 72 72 6f 77 7d 0d |nter) an| arrow}.|
|00000360| 0d 09 09 6d 20 3a 3d 20 | 47 65 74 4d 65 6e 75 20 |...m := |GetMenu |
|00000370| 28 32 35 36 29 3b 0d 09 | 09 41 64 64 52 65 73 4d |(256);..|.AddResM|
|00000380| 65 6e 75 20 28 6d 2c 20 | 27 44 52 56 52 27 29 3b |enu (m, |'DRVR');|
|00000390| 0d 09 09 49 6e 73 65 72 | 74 4d 65 6e 75 20 28 6d |...Inser|tMenu (m|
|000003a0| 2c 20 30 29 3b 0d 09 7b | 09 6d 20 3a 3d 20 47 65 |, 0);..{|.m := Ge|
|000003b0| 74 4d 65 6e 75 20 28 32 | 35 37 29 3b 20 49 6e 73 |tMenu (2|57); Ins|
|000003c0| 65 72 74 4d 65 6e 75 20 | 28 6d 2c 20 30 29 3b 20 |ertMenu |(m, 0); |
|000003d0| 7d 0d 09 45 4e 44 3b 0d | 0d 74 79 70 65 20 52 67 |}..END;.|.type Rg|
|000003e0| 6e 48 50 74 72 20 3d 20 | 5e 52 67 6e 48 61 6e 64 |nHPtr = |^RgnHand|
|000003f0| 6c 65 3b 20 49 6e 74 50 | 74 72 20 3d 20 5e 69 6e |le; IntP|tr = ^in|
|00000400| 74 65 67 65 72 3b 0d 09 | 20 50 74 50 74 72 20 3d |teger;..| PtPtr =|
|00000410| 20 5e 50 6f 69 6e 74 3b | 0d 0d 76 61 72 09 6d 6f | ^Point;|..var.mo|
|00000420| 75 73 65 72 67 6e 20 3a | 20 52 67 6e 48 61 6e 64 |usergn :| RgnHand|
|00000430| 6c 65 3b 20 66 72 6f 6e | 74 6d 6f 73 74 20 3a 20 |le; fron|tmost : |
|00000440| 62 6f 6f 6c 65 61 6e 3b | 0d 09 65 76 20 3a 20 45 |boolean;|..ev : E|
|00000450| 76 65 6e 74 52 65 63 6f | 72 64 3b 20 0d 09 6d 6f |ventReco|rd; ..mo|
|00000460| 75 73 65 70 6f 73 20 3a | 20 50 6f 69 6e 74 3b 20 |usepos :| Point; |
|00000470| 77 20 3a 20 57 69 6e 64 | 6f 77 50 74 72 3b 20 73 |w : Wind|owPtr; s|
|00000480| 79 73 76 20 3a 20 6c 6f | 6e 67 69 6e 74 3b 0d 09 |ysv : lo|ngint;..|
|00000490| 63 6f 75 6e 74 2c 20 73 | 6c 65 65 70 20 3a 20 69 |count, s|leep : i|
|000004a0| 6e 74 65 67 65 72 3b 0d | 09 73 61 76 65 64 6d 62 |nteger;.|.savedmb|
|000004b0| 61 72 68 65 69 67 68 74 | 20 3a 20 69 6e 74 65 67 |arheight| : integ|
|000004c0| 65 72 3b 0d 09 0d 70 72 | 6f 63 65 64 75 72 65 20 |er;...pr|ocedure |
|000004d0| 4f 70 65 6e 46 75 6c 6c | 53 63 72 65 65 6e 57 69 |OpenFull|ScreenWi|
|000004e0| 6e 64 6f 77 20 28 76 61 | 72 20 77 20 3a 20 57 69 |ndow (va|r w : Wi|
|000004f0| 6e 64 6f 77 50 74 72 29 | 3b 0d 0d 76 61 72 20 73 |ndowPtr)|;..var s|
|00000500| 61 76 65 64 67 72 61 79 | 72 67 6e 2c 20 6e 65 77 |avedgray|rgn, new|
|00000510| 67 72 61 79 72 67 6e 20 | 3a 20 52 67 6e 48 61 6e |grayrgn |: RgnHan|
|00000520| 64 6c 65 3b 20 0d 09 70 | 77 20 3a 20 69 6e 74 65 |dle; ..p|w : inte|
|00000530| 67 65 72 3b 20 62 6f 78 | 20 3a 20 52 65 63 74 3b |ger; box| : Rect;|
|00000540| 0d 09 0d 62 65 67 69 6e | 0d 0d 7b 20 57 61 72 6e |...begin|..{ Warn|
|00000550| 69 6e 67 3a 20 49 66 20 | 79 6f 75 20 61 72 65 20 |ing: If |you are |
|00000560| 67 6f 69 6e 67 20 74 6f | 20 6d 6f 64 69 66 79 20 |going to| modify |
|00000570| 74 68 69 73 20 73 63 72 | 65 65 6e 73 61 76 65 72 |this scr|eensaver|
|00000580| 2c 20 62 65 20 73 75 72 | 65 20 6e 6f 74 20 74 6f |, be sur|e not to|
|00000590| 20 61 64 64 0d 20 20 63 | 6f 64 65 20 62 65 74 77 | add.  c|ode betw|
|000005a0| 65 65 6e 20 74 68 69 73 | 20 6c 69 6e 65 20 61 6e |een this| line an|
|000005b0| 64 20 74 68 65 20 6c 69 | 6e 65 20 4e 6f 74 65 3a |d the li|ne Note:|
|000005c0| 20 62 65 6c 6f 77 2e 20 | 4f 74 68 65 72 77 69 73 | below. |Otherwis|
|000005d0| 65 20 74 68 65 20 73 79 | 73 74 65 6d 0d 20 20 6d |e the sy|stem.  m|
|000005e0| 61 79 20 63 72 61 73 68 | 2c 20 62 65 63 61 75 73 |ay crash|, becaus|
|000005f0| 65 20 74 68 65 20 67 72 | 61 79 72 67 6e 20 70 6f |e the gr|ayrgn po|
|00000600| 69 6e 74 73 20 74 6f 20 | 67 61 72 62 61 67 65 2e |ints to |garbage.|
|00000610| 20 49 66 20 79 6f 75 20 | 66 65 65 6c 20 79 6f 75 | If you |feel you|
|00000620| 20 61 62 73 6f 6c 75 74 | 65 6c 79 0d 20 20 6d 75 | absolut|ely.  mu|
|00000630| 73 74 20 61 64 64 20 63 | 6f 64 65 20 69 6e 20 74 |st add c|ode in t|
|00000640| 68 69 73 20 70 61 72 74 | 20 6f 66 20 74 68 65 20 |his part| of the |
|00000650| 70 72 6f 67 72 61 6d 2c | 20 74 68 65 6e 20 70 6c |program,| then pl|
|00000660| 65 61 73 65 20 63 68 61 | 6e 67 65 20 74 68 65 20 |ease cha|nge the |
|00000670| 70 72 6f 63 65 73 73 0d | 20 20 74 79 70 65 20 74 |process.|  type t|
|00000680| 6f 20 70 4d 61 73 74 65 | 72 2c 20 61 6e 64 20 62 |o pMaste|r, and b|
|00000690| 61 63 6b 20 74 6f 20 70 | 53 6c 61 76 65 20 62 65 |ack to p|Slave be|
|000006a0| 6c 6f 77 2e 20 7d 0d 20 | 20 0d 7b 20 63 61 6c 63 |low. }. | .{ calc|
|000006b0| 75 6c 61 74 65 20 75 6e | 69 6f 6e 20 6f 66 20 73 |ulate un|ion of s|
|000006c0| 63 72 65 65 6e 62 69 74 | 73 20 61 6e 64 20 67 72 |creenbit|s and gr|
|000006d0| 61 79 72 67 6e 20 3d 3e | 20 74 6f 74 61 6c 20 73 |ayrgn =>| total s|
|000006e0| 70 61 63 65 20 6f 66 20 | 61 6c 6c 20 73 63 72 65 |pace of |all scre|
|000006f0| 65 6e 73 20 7d 0d 0d 09 | 73 61 76 65 64 67 72 61 |ens }...|savedgra|
|00000700| 79 72 67 6e 20 3a 3d 20 | 52 67 6e 48 50 74 72 20 |yrgn := |RgnHPtr |
|00000710| 28 47 72 61 79 52 67 6e | 29 5e 3b 0d 09 6e 65 77 |(GrayRgn|)^;..new|
|00000720| 67 72 61 79 72 67 6e 20 | 3a 3d 20 4e 65 77 52 67 |grayrgn |:= NewRg|
|00000730| 6e 3b 20 52 65 63 74 52 | 67 6e 20 28 6e 65 77 67 |n; RectR|gn (newg|
|00000740| 72 61 79 72 67 6e 2c 20 | 73 63 72 65 65 6e 62 69 |rayrgn, |screenbi|
|00000750| 74 73 2e 62 6f 75 6e 64 | 73 29 3b 0d 09 55 6e 69 |ts.bound|s);..Uni|
|00000760| 6f 6e 52 67 6e 20 28 73 | 61 76 65 64 67 72 61 79 |onRgn (s|avedgray|
|00000770| 72 67 6e 2c 20 6e 65 77 | 67 72 61 79 72 67 6e 2c |rgn, new|grayrgn,|
|00000780| 20 6e 65 77 67 72 61 79 | 72 67 6e 29 3b 0d 09 52 | newgray|rgn);..R|
|00000790| 67 6e 48 50 74 72 20 28 | 47 72 61 79 52 67 6e 29 |gnHPtr (|GrayRgn)|
|000007a0| 5e 20 3a 3d 20 6e 65 77 | 67 72 61 79 72 67 6e 3b |^ := new|grayrgn;|
|000007b0| 20 62 6f 78 20 3a 3d 20 | 6e 65 77 67 72 61 79 72 | box := |newgrayr|
|000007c0| 67 6e 5e 5e 2e 52 67 6e | 42 42 6f 78 3b 0d 0d 7b |gn^^.Rgn|BBox;..{|
|000007d0| 20 73 65 74 20 75 70 20 | 66 75 6c 6c 20 73 63 72 | set up |full scr|
|000007e0| 65 65 6e 20 74 72 61 6e | 73 70 61 72 65 6e 74 20 |een tran|sparent |
|000007f0| 77 69 6e 64 6f 77 20 7d | 0d 0d 09 77 20 3a 3d 20 |window }|...w := |
|00000800| 4e 65 77 57 69 6e 64 6f | 77 20 28 6e 69 6c 2c 20 |NewWindo|w (nil, |
|00000810| 62 6f 78 2c 20 27 27 2c | 20 66 61 6c 73 65 2c 20 |box, '',| false, |
|00000820| 0d 09 09 70 6c 61 69 6e | 44 42 6f 78 2c 20 57 69 |...plain|DBox, Wi|
|00000830| 6e 64 6f 77 50 74 72 20 | 28 2d 31 29 2c 20 66 61 |ndowPtr |(-1), fa|
|00000840| 6c 73 65 2c 20 30 29 3b | 0d 09 0d 09 70 77 20 3a |lse, 0);|....pw :|
|00000850| 3d 20 49 6e 74 50 74 72 | 20 28 50 61 69 6e 74 57 |= IntPtr| (PaintW|
|00000860| 68 69 74 65 29 5e 3b 20 | 49 6e 74 50 74 72 20 28 |hite)^; |IntPtr (|
|00000870| 50 61 69 6e 74 57 68 69 | 74 65 29 5e 3a 3d 20 30 |PaintWhi|te)^:= 0|
|00000880| 3b 0d 09 53 68 6f 77 57 | 69 6e 64 6f 77 20 28 77 |;..ShowW|indow (w|
|00000890| 29 3b 20 53 65 74 50 6f | 72 74 20 28 77 29 3b 0d |); SetPo|rt (w);.|
|000008a0| 09 49 6e 74 50 74 72 20 | 28 50 61 69 6e 74 57 68 |.IntPtr |(PaintWh|
|000008b0| 69 74 65 29 5e 3a 3d 20 | 70 77 3b 0d 09 0d 7b ca |ite)^:= |pw;...{.|
|000008c0| 72 65 73 74 6f 72 65 20 | 67 72 61 79 72 67 6e 20 |restore |grayrgn |
|000008d0| 7d 0d 0d 09 52 67 6e 48 | 50 74 72 20 28 47 72 61 |}...RgnH|Ptr (Gra|
|000008e0| 79 52 67 6e 29 5e 20 3a | 3d 20 73 61 76 65 64 67 |yRgn)^ :|= savedg|
|000008f0| 72 61 79 72 67 6e 3b 20 | 0d 09 7b 44 69 73 70 6f |rayrgn; |..{Dispo|
|00000900| 73 65 52 67 6e 20 28 6e | 65 77 67 72 61 79 72 67 |seRgn (n|ewgrayrg|
|00000910| 6e 29 3b 7d 0d 09 69 66 | 20 49 6e 74 50 74 72 20 |n);}..if| IntPtr |
|00000920| 28 4d 42 61 72 48 65 69 | 67 68 74 29 5e 20 3d 20 |(MBarHei|ght)^ = |
|00000930| 30 20 74 68 65 6e 20 77 | 5e 2e 76 69 73 72 67 6e |0 then w|^.visrgn|
|00000940| 20 3a 3d 20 6e 65 77 67 | 72 61 79 72 67 6e 3b 20 | := newg|rayrgn; |
|00000950| 0d 09 09 7b 20 41 2f 55 | 58 20 32 2e 30 20 26 20 |...{ A/U|X 2.0 & |
|00000960| 37 2e 30 20 72 65 73 65 | 74 73 20 76 69 73 69 62 |7.0 rese|ts visib|
|00000970| 6c 65 20 6f 6e 20 53 68 | 6f 77 57 69 6e 64 6f 77 |le on Sh|owWindow|
|00000980| 20 2d 2d 20 74 68 69 73 | 20 69 73 20 61 20 62 75 | -- this| is a bu|
|00000990| 67 20 0d 09 09 20 20 66 | 6f 72 63 69 6e 67 20 74 |g ...  f|orcing t|
|000009a0| 68 69 73 20 77 69 74 68 | 20 3e 3d 20 36 2e 30 2e |his with| >= 6.0.|
|000009b0| 35 20 69 73 20 4f 4b 20 | 7d 0d 09 49 6e 76 61 6c |5 is OK |}..Inval|
|000009c0| 52 67 6e 20 28 6e 65 77 | 67 72 61 79 72 67 6e 29 |Rgn (new|grayrgn)|
|000009d0| 3b 0d 0d 7b 20 4e 6f 74 | 65 3a 20 67 72 61 79 72 |;..{ Not|e: grayr|
|000009e0| 67 6e 20 72 65 73 74 6f | 72 65 64 20 7d 0d 09 49 |gn resto|red }..I|
|000009f0| 6e 74 50 74 72 20 28 4d | 42 61 72 48 65 69 67 68 |ntPtr (M|BarHeigh|
|00000a00| 74 29 5e 20 3a 3d 20 73 | 61 76 65 64 6d 62 61 72 |t)^ := s|avedmbar|
|00000a10| 68 65 69 67 68 74 3b 0d | 65 6e 64 3b 0d 0d 63 6f |height;.|end;..co|
|00000a20| 6e 73 74 20 5f 41 55 58 | 44 69 73 70 61 74 63 68 |nst _AUX|Dispatch|
|00000a30| 20 3d 20 24 41 42 46 39 | 3b 0d 0d 66 75 6e 63 74 | = $ABF9|;..funct|
|00000a40| 69 6f 6e 20 54 72 61 70 | 41 76 61 69 6c 20 28 74 |ion Trap|Avail (t|
|00000a50| 72 61 70 20 3a 20 69 6e | 74 65 67 65 72 29 20 3a |rap : in|teger) :|
|00000a60| 20 62 6f 6f 6c 65 61 6e | 3b 0d 62 65 67 69 6e 0d | boolean|;.begin.|
|00000a70| 20 20 54 72 61 70 41 76 | 61 69 6c 20 3a 3d 20 4e |  TrapAv|ail := N|
|00000a80| 47 65 74 54 72 61 70 41 | 64 64 72 65 73 73 20 28 |GetTrapA|ddress (|
|00000a90| 74 72 61 70 2c 20 54 72 | 61 70 54 79 70 65 20 28 |trap, Tr|apType (|
|00000aa0| 74 72 61 70 20 3e 3d 20 | 24 41 38 30 30 29 29 0d |trap >= |$A800)).|
|00000ab0| 20 20 20 20 3c 3e 20 4e | 47 65 74 54 72 61 70 41 |    <> N|GetTrapA|
|00000ac0| 64 64 72 65 73 73 20 28 | 5f 55 6e 69 6d 70 6c 65 |ddress (|_Unimple|
|00000ad0| 6d 65 6e 74 65 64 2c 20 | 54 6f 6f 6c 54 72 61 70 |mented, |ToolTrap|
|00000ae0| 29 0d 65 6e 64 3b 0d 0d | 70 72 6f 63 65 64 75 72 |).end;..|procedur|
|00000af0| 65 20 45 72 72 6f 72 45 | 78 69 74 20 28 65 72 72 |e ErrorE|xit (err|
|00000b00| 20 3a 20 69 6e 74 65 67 | 65 72 29 3b 0d 62 65 67 | : integ|er);.beg|
|00000b10| 69 6e 0d 09 69 66 20 65 | 72 72 20 3c 3e 20 6e 6f |in..if e|rr <> no|
|00000b20| 45 72 72 20 74 68 65 6e | 20 69 66 20 54 72 61 70 |Err then| if Trap|
|00000b30| 41 76 61 69 6c 20 28 5f | 44 65 62 75 67 53 74 72 |Avail (_|DebugStr|
|00000b40| 29 20 74 68 65 6e 20 44 | 65 62 75 67 53 74 72 20 |) then D|ebugStr |
|00000b50| 28 27 53 63 72 65 65 6e | 73 61 76 65 72 20 64 65 |('Screen|saver de|
|00000b60| 74 65 63 74 65 64 20 65 | 72 72 6f 72 27 29 3b 20 |tected e|rror'); |
|00000b70| 7b 20 45 78 69 74 54 6f | 53 68 65 6c 6c 3b 20 7d |{ ExitTo|Shell; }|
|00000b80| 0d 65 6e 64 3b 0d 0d 76 | 61 72 20 73 79 73 65 6e |.end;..v|ar sysen|
|00000b90| 76 20 3a 20 53 79 73 45 | 6e 76 52 65 63 3b 0d 0d |v : SysE|nvRec;..|
|00000ba0| 62 65 67 69 6e 0d 09 49 | 6e 69 74 54 6f 6f 6c 42 |begin..I|nitToolB|
|00000bb0| 6f 78 3b 20 0d 09 77 20 | 3a 3d 20 6e 69 6c 3b 20 |ox; ..w |:= nil; |
|00000bc0| 63 6f 75 6e 74 20 3a 3d | 20 35 3b 20 73 6c 65 65 |count :=| 5; slee|
|00000bd0| 70 20 3a 3d 20 30 3b 0d | 09 66 72 6f 6e 74 6d 6f |p := 0;.|.frontmo|
|00000be0| 73 74 20 3a 3d 20 74 72 | 75 65 3b 0d 09 0d 09 73 |st := tr|ue;....s|
|00000bf0| 61 76 65 64 6d 62 61 72 | 68 65 69 67 68 74 20 3a |avedmbar|height :|
|00000c00| 3d 20 49 6e 74 50 74 72 | 20 28 4d 42 61 72 48 65 |= IntPtr| (MBarHe|
|00000c10| 69 67 68 74 29 5e 3b 0d | 09 69 66 20 53 79 73 45 |ight)^;.|.if SysE|
|00000c20| 6e 76 69 72 6f 6e 73 20 | 28 31 2c 20 73 79 73 65 |nvirons |(1, syse|
|00000c30| 6e 76 29 20 3d 20 6e 6f | 45 72 72 20 74 68 65 6e |nv) = no|Err then|
|00000c40| 3b 0d 09 69 66 20 28 73 | 79 73 65 6e 76 2e 73 79 |;..if (s|ysenv.sy|
|00000c50| 73 74 65 6d 56 65 72 73 | 69 6f 6e 20 3e 3d 20 24 |stemVers|ion >= $|
|00000c60| 37 30 30 29 20 7c 20 54 | 72 61 70 41 76 61 69 6c |700) | T|rapAvail|
|00000c70| 20 28 5f 41 55 58 44 69 | 73 70 61 74 63 68 29 20 | (_AUXDi|spatch) |
|00000c80| 74 68 65 6e 20 49 6e 74 | 50 74 72 20 28 4d 42 61 |then Int|Ptr (MBa|
|00000c90| 72 48 65 69 67 68 74 29 | 5e 20 3a 3d 20 30 3b 20 |rHeight)|^ := 0; |
|00000ca0| 0d 09 0d 7b 09 77 65 20 | 77 61 6e 74 20 74 6f 20 |...{.we |want to |
|00000cb0| 65 78 69 74 20 69 66 20 | 65 69 74 68 65 72 20 4e |exit if |either N|
|00000cc0| 65 74 57 6f 72 6b 20 50 | 72 6f 63 65 73 73 6f 72 |etWork P|rocessor|
|00000cd0| 20 74 65 6c 6c 73 20 75 | 73 20 74 6f 20 65 78 69 | tells u|s to exi|
|00000ce0| 74 2c 20 6f 72 20 69 66 | 0d 09 77 65 20 64 65 74 |t, or if|..we det|
|00000cf0| 65 63 74 20 73 6f 6d 65 | 20 75 73 65 72 20 61 63 |ect some| user ac|
|00000d00| 74 69 76 69 74 79 20 6f | 75 72 73 65 6c 76 65 73 |tivity o|urselves|
|00000d10| 2e 20 49 6e 20 74 68 65 | 20 6c 61 74 74 65 72 20 |. In the| latter |
|00000d20| 63 61 73 65 2c 20 4d 75 | 6c 74 69 66 69 6e 64 65 |case, Mu|ltifinde|
|00000d30| 72 0d 09 77 69 6c 6c 20 | 68 61 6e 64 20 75 73 20 |r..will |hand us |
|00000d40| 61 6e 20 65 76 65 6e 74 | 20 77 68 69 63 68 20 77 |an event| which w|
|00000d50| 65 20 69 67 6e 6f 72 65 | 2e 20 54 68 65 20 75 73 |e ignore|. The us|
|00000d60| 65 20 6f 66 20 61 20 6d | 6f 75 73 65 20 6d 6f 76 |e of a m|ouse mov|
|00000d70| 65 64 20 65 76 65 6e 74 | 0d 09 61 6c 6c 6f 77 73 |ed event|..allows|
|00000d80| 20 75 73 20 74 6f 20 75 | 73 65 20 61 20 6c 61 72 | us to u|se a lar|
|00000d90| 67 65 20 73 6c 65 65 70 | 20 76 61 6c 75 65 2e 20 |ge sleep| value. |
|00000da0| 49 66 20 77 65 20 77 61 | 6e 74 20 74 6f 20 64 65 |If we wa|nt to de|
|00000db0| 74 65 63 74 20 6d 6f 64 | 69 66 69 65 72 73 0d 09 |tect mod|ifiers..|
|00000dc0| 69 6e 20 61 20 74 69 6d | 65 6c 79 20 6d 61 6e 6e |in a tim|ely mann|
|00000dd0| 65 72 2c 20 77 65 20 77 | 6f 75 6c 64 20 68 61 76 |er, we w|ould hav|
|00000de0| 65 20 74 6f 20 75 73 65 | 20 61 20 73 6d 61 6c 6c |e to use| a small|
|00000df0| 65 72 20 76 61 6c 75 65 | 20 28 6d 6f 64 69 66 69 |er value| (modifi|
|00000e00| 65 72 73 0d 09 61 72 65 | 20 64 65 74 65 63 74 65 |ers..are| detecte|
|00000e10| 64 20 62 79 20 4e 65 74 | 57 6f 72 6b 20 50 72 6f |d by Net|Work Pro|
|00000e20| 63 65 73 73 6f 72 2c 20 | 62 75 74 20 6e 6f 74 20 |cessor, |but not |
|00000e30| 62 79 20 4d 75 6c 74 69 | 66 69 6e 64 65 72 2e 20 |by Multi|finder. |
|00000e40| 7d 0d 0d 7b ca 73 65 74 | 20 6d 6f 75 73 65 72 67 |}..{.set| mouserg|
|00000e50| 6e 20 74 6f 20 63 75 72 | 72 65 6e 74 20 6d 6f 75 |n to cur|rent mou|
|00000e60| 73 65 20 70 6f 73 69 74 | 69 6f 6e 20 7d 0d 09 0d |se posit|ion }...|
|00000e70| 09 6d 6f 75 73 65 70 6f | 73 20 3a 3d 20 50 74 50 |.mousepo|s := PtP|
|00000e80| 74 72 20 28 4d 6f 75 73 | 65 29 5e 3b 0d 09 7b 20 |tr (Mous|e)^;..{ |
|00000e90| 47 65 74 4d 6f 75 73 65 | 20 28 6d 6f 75 73 65 70 |GetMouse| (mousep|
|00000ea0| 6f 73 29 3b 20 4c 6f 63 | 61 6c 54 6f 47 6c 6f 62 |os); Loc|alToGlob|
|00000eb0| 61 6c 20 28 6d 6f 75 73 | 65 70 6f 73 29 3b 20 7d |al (mous|epos); }|
|00000ec0| 0d 09 6d 6f 75 73 65 72 | 67 6e 20 3a 3d 20 4e 65 |..mouser|gn := Ne|
|00000ed0| 77 52 67 6e 3b 20 0d 09 | 77 69 74 68 20 6d 6f 75 |wRgn; ..|with mou|
|00000ee0| 73 65 70 6f 73 20 64 6f | 20 53 65 74 52 65 63 74 |sepos do| SetRect|
|00000ef0| 52 67 6e 20 28 6d 6f 75 | 73 65 72 67 6e 2c 20 68 |Rgn (mou|sergn, h|
|00000f00| 2c 20 76 2c 20 68 2b 31 | 2c 20 76 2b 31 29 3b 0d |, v, h+1|, v+1);.|
|00000f10| 09 0d 09 72 65 70 65 61 | 74 0d 09 09 4f 62 73 63 |...repea|t...Obsc|
|00000f20| 75 72 65 43 75 72 73 6f | 72 3b 20 7b ca 62 61 63 |ureCurso|r; {.bac|
|00000f30| 6b 67 72 6f 75 6e 64 20 | 49 6e 69 74 43 75 72 73 |kground |InitCurs|
|00000f40| 6f 72 73 20 6e 6f 74 20 | 73 68 69 65 6c 64 65 64 |ors not |shielded|
|00000f50| 20 62 79 20 4d 75 6c 74 | 69 66 69 6e 64 65 72 20 | by Mult|ifinder |
|00000f60| 7d 0d 09 09 20 0d 09 09 | 69 66 20 57 61 69 74 4e |}... ...|if WaitN|
|00000f70| 65 78 74 45 76 65 6e 74 | 20 28 45 76 65 72 79 45 |extEvent| (EveryE|
|00000f80| 76 65 6e 74 2c 20 65 76 | 2c 20 73 6c 65 65 70 2c |vent, ev|, sleep,|
|00000f90| 20 6d 6f 75 73 65 72 67 | 6e 29 20 74 68 65 6e 20 | mouserg|n) then |
|00000fa0| 0d 09 09 09 63 61 73 65 | 20 65 76 2e 77 68 61 74 |....case| ev.what|
|00000fb0| 20 6f 66 0d 09 09 09 09 | 75 70 64 61 74 65 45 76 | of.....|updateEv|
|00000fc0| 74 20 3a 20 62 65 67 69 | 6e 0d 09 09 09 09 09 09 |t : begi|n.......|
|00000fd0| 42 65 67 69 6e 55 70 64 | 61 74 65 20 28 77 29 3b |BeginUpd|ate (w);|
|00000fe0| 20 0d 09 09 09 09 09 09 | 46 69 6c 6c 52 67 6e 20 | .......|FillRgn |
|00000ff0| 28 77 5e 2e 76 69 73 52 | 67 6e 2c 20 62 6c 61 63 |(w^.visR|gn, blac|
|00001000| 6b 29 3b 0d 09 09 09 09 | 09 09 45 6e 64 55 70 64 |k);.....|..EndUpd|
|00001010| 61 74 65 20 28 77 29 3b | 0d 09 09 09 09 09 65 6e |ate (w);|......en|
|00001020| 64 3b 0d 09 09 09 09 64 | 69 73 6b 45 76 74 20 3a |d;.....d|iskEvt :|
|00001030| 20 69 66 20 50 6f 69 6e | 74 20 28 65 76 2e 6d 65 | if Poin|t (ev.me|
|00001040| 73 73 61 67 65 29 2e 76 | 20 3c 3e 20 6e 6f 45 72 |ssage).v| <> noEr|
|00001050| 72 20 74 68 65 6e 0d 09 | 09 09 09 09 09 09 69 66 |r then..|......if|
|00001060| 20 45 6a 65 63 74 20 28 | 6e 69 6c 2c 20 50 6f 69 | Eject (|nil, Poi|
|00001070| 6e 74 20 28 65 76 2e 6d | 65 73 73 61 67 65 29 2e |nt (ev.m|essage).|
|00001080| 68 29 20 3c 3e 20 6e 6f | 45 72 72 20 74 68 65 6e |h) <> no|Err then|
|00001090| 3b 0d 09 09 09 09 09 09 | 7b 09 63 61 6e 6e 6f 74 |;.......|{.cannot|
|000010a0| 20 68 61 6e 64 6c 65 20 | 62 61 64 20 64 69 73 6b | handle |bad disk|
|000010b0| 2c 20 62 65 63 61 75 73 | 65 20 74 68 69 73 20 63 |, becaus|e this c|
|000010c0| 61 75 73 65 73 20 61 20 | 6d 6f 64 61 6c 20 64 69 |auses a |modal di|
|000010d0| 61 6c 6f 67 0d 09 09 09 | 09 09 09 09 3d 3e 20 4e |alog....|....=> N|
|000010e0| 65 74 57 6f 72 6b 20 50 | 72 6f 63 65 73 73 6f 72 |etWork P|rocessor|
|000010f0| 20 77 69 6c 6c 20 6b 69 | 6c 6c 20 75 73 2e 20 45 | will ki|ll us. E|
|00001100| 6a 65 63 74 20 74 68 65 | 20 64 69 73 6b 20 69 6e |ject the| disk in|
|00001110| 73 74 65 61 64 2e 20 7d | 0d 09 09 09 09 61 70 70 |stead. }|.....app|
|00001120| 34 45 76 74 20 3a 20 69 | 66 20 42 41 6e 64 20 28 |4Evt : i|f BAnd (|
|00001130| 65 76 2e 6d 65 73 73 61 | 67 65 2c 20 24 66 66 30 |ev.messa|ge, $ff0|
|00001140| 30 30 30 30 30 29 20 3d | 20 24 30 31 30 30 30 30 |00000) =| $010000|
|00001150| 30 30 20 74 68 65 6e 20 | 62 65 67 69 6e 0d 09 09 |00 then |begin...|
|00001160| 09 09 09 09 09 09 66 72 | 6f 6e 74 6d 6f 73 74 20 |......fr|ontmost |
|00001170| 3a 3d 20 6f 64 64 20 28 | 65 76 2e 6d 65 73 73 61 |:= odd (|ev.messa|
|00001180| 67 65 29 3b 0d 09 09 09 | 09 09 09 09 09 69 66 20 |ge);....|.....if |
|00001190| 66 72 6f 6e 74 6d 6f 73 | 74 20 26 20 28 77 20 3d |frontmos|t & (w =|
|000011a0| 20 6e 69 6c 29 20 74 68 | 65 6e 20 62 65 67 69 6e | nil) th|en begin|
|000011b0| 0d 09 09 09 09 09 09 09 | 09 09 63 6f 75 6e 74 20 |........|..count |
|000011c0| 3a 3d 20 35 3b 20 73 6c | 65 65 70 20 3a 3d 20 30 |:= 5; sl|eep := 0|
|000011d0| 3b 0d 09 09 09 09 09 09 | 09 09 65 6e 64 0d 09 09 |;.......|..end...|
|000011e0| 09 09 09 09 09 09 65 6c | 73 65 20 69 66 20 66 72 |......el|se if fr|
|000011f0| 6f 6e 74 6d 6f 73 74 20 | 7c 20 28 77 20 3d 20 6e |ontmost || (w = n|
|00001200| 69 6c 29 20 74 68 65 6e | 20 65 76 2e 77 68 61 74 |il) then| ev.what|
|00001210| 20 3a 3d 20 6e 75 6c 6c | 45 76 65 6e 74 0d 09 09 | := null|Event...|
|00001220| 09 09 09 09 09 09 7b 20 | 65 6c 73 65 20 65 78 69 |......{ |else exi|
|00001230| 74 20 7d 0d 09 09 09 09 | 09 09 20 20 65 6e 64 3b |t }.....|..  end;|
|00001240| 0d 0d 09 09 09 7b 09 6f | 74 68 65 72 77 69 73 65 |.....{.o|therwise|
|00001250| 20 44 65 62 75 67 53 74 | 72 20 28 27 73 6f 6d 65 | DebugSt|r ('some|
|00001260| 20 6f 74 68 65 72 20 65 | 76 65 6e 74 27 29 3b 20 | other e|vent'); |
|00001270| 7d 0d 09 09 09 65 6e 64 | 3b 0d 09 09 09 0d 09 09 |}....end|;.......|
|00001280| 7b ca 69 6e 63 6c 75 73 | 69 6f 6e 20 6f 66 20 61 |{.inclus|ion of a|
|00001290| 70 70 34 45 76 74 20 63 | 61 75 73 65 73 20 75 73 |pp4Evt c|auses us|
|000012a0| 20 74 6f 20 65 78 69 74 | 20 69 66 20 61 6e 6f 74 | to exit| if anot|
|000012b0| 68 65 72 20 70 72 6f 67 | 72 61 6d 20 69 73 20 6c |her prog|ram is l|
|000012c0| 61 75 6e 63 68 65 64 20 | 66 72 6f 6e 74 6d 6f 73 |aunched |frontmos|
|000012d0| 74 2e 0d 09 09 20 20 69 | 66 20 73 63 72 65 65 6e |t....  i|f screen|
|000012e0| 73 61 76 65 72 20 64 6f | 65 73 20 6e 6f 74 20 65 |saver do|es not e|
|000012f0| 78 69 74 2c 20 79 6f 75 | 20 77 6f 6e ab 74 20 73 |xit, you| won.t s|
|00001300| 65 65 20 61 6e 79 74 68 | 69 6e 67 2e 20 66 69 6c |ee anyth|ing. fil|
|00001310| 74 65 72 20 61 70 70 34 | 45 76 74 73 20 69 66 20 |ter app4|Evts if |
|00001320| 79 6f 75 0d 09 09 20 20 | 77 61 6e 74 20 61 20 64 |you...  |want a d|
|00001330| 69 66 66 65 72 65 6e 74 | 20 62 65 68 61 76 69 6f |ifferent| behavio|
|00001340| 75 72 2e 20 4e 6f 74 65 | 20 74 68 61 74 20 61 70 |ur. Note| that ap|
|00001350| 70 34 45 76 74 20 63 61 | 6e 20 62 65 20 61 20 6d |p4Evt ca|n be a m|
|00001360| 6f 75 73 65 6d 6f 76 65 | 64 20 65 76 74 20 74 6f |ousemove|d evt to|
|00001370| 6f 2e 20 7d 0d 09 09 20 | 20 0d 09 09 69 66 20 66 |o. }... | ...if f|
|00001380| 72 6f 6e 74 6d 6f 73 74 | 20 26 20 28 77 20 3d 20 |rontmost| & (w = |
|00001390| 6e 69 6c 29 20 74 68 65 | 6e 0d 09 09 09 69 66 20 |nil) the|n....if |
|000013a0| 63 6f 75 6e 74 20 3e 20 | 30 20 74 68 65 6e 20 63 |count > |0 then c|
|000013b0| 6f 75 6e 74 20 3a 3d 20 | 63 6f 75 6e 74 20 2d 20 |ount := |count - |
|000013c0| 31 0d 09 09 09 65 6c 73 | 65 20 69 66 20 63 6f 75 |1....els|e if cou|
|000013d0| 6e 74 20 3d 20 30 20 74 | 68 65 6e 20 4f 70 65 6e |nt = 0 t|hen Open|
|000013e0| 46 75 6c 6c 53 63 72 65 | 65 6e 57 69 6e 64 6f 77 |FullScre|enWindow|
|000013f0| 20 28 77 29 0d 09 09 09 | 65 6c 73 65 20 0d 09 09 | (w)....|else ...|
|00001400| 65 6c 73 65 20 73 6c 65 | 65 70 20 3a 3d 20 36 30 |else sle|ep := 60|
|00001410| 3b 0d 09 09 20 0d 09 75 | 6e 74 69 6c 20 65 76 2e |;... ..u|ntil ev.|
|00001420| 77 68 61 74 20 69 6e 20 | 5b 6b 65 79 64 6f 77 6e |what in |[keydown|
|00001430| 2c 20 6d 6f 75 73 65 64 | 6f 77 6e 2c 20 64 69 73 |, moused|own, dis|
|00001440| 6b 45 76 74 2c 20 61 70 | 70 34 45 76 74 5d 3b 0d |kEvt, ap|p4Evt];.|
|00001450| 09 0d 09 69 66 20 77 20 | 3c 3e 20 6e 69 6c 20 74 |...if w |<> nil t|
|00001460| 68 65 6e 20 44 69 73 70 | 6f 73 65 57 69 6e 64 6f |hen Disp|oseWindo|
|00001470| 77 20 28 77 29 3b 20 7b | 20 66 6f 72 63 65 73 20 |w (w); {| forces |
|00001480| 75 70 64 61 74 65 20 6f | 66 20 61 6c 6c 20 77 69 |update o|f all wi|
|00001490| 6e 64 6f 77 73 20 7d 0d | 65 6e 64 2e 0d 00 00 00 |ndows }.|end.....|
|000014a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000014b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000014c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000014d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000014e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000014f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001500| 00 00 01 00 00 00 01 9d | 00 00 00 9d 00 00 00 52 |........|.......R|
|00001510| 65 6d 66 6f 6c 64 65 72 | 7d 66 69 6e 64 65 72 22 |emfolder|}finder"|
|00001520| 20 67 69 6e 64 65 72 0d | 64 75 6d 70 63 6f 64 65 | ginder.|dumpcode|
|00001530| 0d 53 63 72 65 65 6e 53 | 61 76 65 72 2e 70 02 00 |.ScreenS|aver.p..|
|00001540| 00 00 54 45 58 54 4d 50 | 53 20 01 00 00 d0 00 00 |..TEXTMP|S ......|
|00001550| 00 00 54 45 58 54 4d 50 | 53 20 01 00 00 d0 00 00 |..TEXTMP|S ......|
|00001560| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001570| 00 00 a3 02 ff 81 00 00 | 14 1d 00 00 01 ef 20 20 |........|......  |
|00001580| 31 20 43 4f 44 45 20 4d | 61 69 6e 0d 20 20 20 31 |1 CODE M|ain.   1|
|00001590| 30 20 43 4f 44 45 20 43 | 6f 70 79 53 65 67 0d 20 |0 CODE C|opySeg. |
|000015a0| 20 20 20 36 20 43 4f 44 | 45 20 50 72 69 6e 74 53 |   6 COD|E PrintS|
|000015b0| 65 67 0d 20 20 20 20 37 | 20 43 4f 44 45 20 41 62 |eg.    7| CODE Ab|
|000015c0| 6f 75 74 53 65 67 0d 20 | 20 20 20 38 20 43 4f 44 |outSeg. |   8 COD|
|000015d0| 45 20 53 74 72 74 53 65 | 67 0d 20 20 20 20 39 20 |E StrtSe|g.    9 |
|000015e0| 43 4f 44 45 20 50 72 69 | 76 53 65 67 0d 20 20 20 |CODE Pri|vSeg.   |
|000015f0| 20 35 20 43 4f 44 45 20 | 49 6e 66 6f 53 65 67 0d | 5 CODE |InfoSeg.|
|00001600| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 00 00 00 |...H..Mo|naco....|
|00001610| 00 00 01 e8 00 01 c8 ec | 00 09 4d 6f 6e 61 63 6f |........|..Monaco|
|00001620| 00 6f 6c 73 3a 53 00 06 | 00 04 00 2a 00 03 01 dd |.ols:S..|...*....|
|00001630| 02 7d 00 2c 00 05 00 f8 | 02 7b a4 66 ba d2 00 00 |.}.,....|.{.f....|
|00001640| 0a b8 00 00 0a c0 00 00 | 09 bb 01 00 00 00 00 1e |........|........|
|00001650| 00 2a 00 03 01 dd 02 7d | 00 2c 00 05 00 f8 02 7b |.*.....}|.,.....{|
|00001660| 00 00 09 bb 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001670| 00 2b 01 23 80 00 00 00 | 05 31 2e 32 2e 33 1e 31 |.+.#....|.1.2.3.1|
|00001680| 2e 32 2e 33 a9 31 39 39 | 31 54 68 65 20 4e 65 74 |.2.3.199|1The Net|
|00001690| 57 6f 72 6b 20 50 72 6f | 6a 65 63 74 20 00 00 01 |Work Pro|ject ...|
|000016a0| 00 00 00 01 9d 00 00 00 | 9d 00 00 00 52 00 48 3c |........|....R.H<|
|000016b0| 78 08 d2 00 00 00 1c 00 | 52 00 01 4d 50 53 52 00 |x.......|R..MPSR.|
|000016c0| 01 00 12 76 65 72 73 00 | 00 00 2a 03 ed ff ff 00 |...vers.|..*.....|
|000016d0| 00 00 00 00 00 00 00 03 | f0 ff ff 00 00 00 4c 00 |........|......L.|
|000016e0| 00 00 00 00 02 ff ff 20 | 00 00 6e 00 48 37 d0 00 |....... |..n.H7..|
|000016f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+